Cream of the Crop 20/Cream of the Crop 20 (Terry Blount) (1996).iso/program/prtfrm51.zip/FRMSRC.ZIP/FDEMO06.DFM/FDEMO06.txt

Text File | 1996-06-20 | 8KB | 333 lines

object Form06: TForm06
  Left = 139
  Top = 203
  Width = 605
  Height = 466
  ActiveControl = Panel1
  Caption = 'Form06'
  Font.Color = clBlack
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 120
  Position = poScreenCenter
  OnCreate = FormCreate
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 597
    Height = 41
    Align = alTop
    TabOrder = 0
    object DBNavigator: TDBNavigator
      Left = 10
      Top = 6
      Width = 291
      Height = 31
      DataSource = DataSource1
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 0
    end
    object View: TBitBtn
      Left = 404
      Top = 4
      Width = 89
      Height = 33
      Caption = '&View'
      TabOrder = 1
      OnClick = ViewClick
    end
    object Exit: TBitBtn
      Left = 500
      Top = 4
      Width = 89
      Height = 33
      Caption = '&Exit'
      ModalResult = 2
      TabOrder = 2
      OnClick = ExitClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 41
    Width = 597
    Height = 398
    Align = alClient
    BevelInner = bvLowered
    BorderWidth = 4
    Caption = 'Panel2'
    TabOrder = 1
    object ScrollBox: TScrollBox
      Left = 6
      Top = 6
      Width = 585
      Height = 386
      HorzScrollBar.Margin = 6
      HorzScrollBar.Range = 310
      VertScrollBar.Margin = 6
      VertScrollBar.Range = 186
      Align = alClient
      AutoScroll = False
      TabOrder = 0
      object Label1: TLabel
        Left = 8
        Top = 6
        Width = 71
        Height = 16
        Caption = 'Species No'
        FocusControl = EditSpeciesNo
      end
      object Label2: TLabel
        Left = 91
        Top = 6
        Width = 55
        Height = 16
        Caption = 'Category'
        FocusControl = EditCategory
      end
      object Label3: TLabel
        Left = 8
        Top = 50
        Width = 98
        Height = 16
        Caption = 'Common_Name'
        FocusControl = EditCommon_Name
      end
      object Label4: TLabel
        Left = 8
        Top = 94
        Width = 90
        Height = 16
        Caption = 'Species Name'
        FocusControl = EditSpeciesName
      end
      object Label5: TLabel
        Left = 8
        Top = 138
        Width = 69
        Height = 16
        Caption = 'Length (cm)'
        FocusControl = EditLengthcm
      end
      object Label6: TLabel
        Left = 90
        Top = 138
        Width = 57
        Height = 16
        Caption = 'Length_In'
        FocusControl = EditLength_In
      end
      object EditSpeciesNo: TDBEdit
        Left = 8
        Top = 24
        Width = 70
        Height = 24
        Color = clSilver
        DataField = 'Species No'
        DataSource = DataSource1
        Font.Color = clWhite
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 0
        ParentFont = False
        TabOrder = 0
      end
      object EditCategory: TDBEdit
        Left = 91
        Top = 24
        Width = 105
        Height = 24
        Color = clSilver
        DataField = 'Category'
        DataSource = DataSource1
        Font.Color = clWhite
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 15
        ParentFont = False
        TabOrder = 1
      end
      object EditCommon_Name: TDBEdit
        Left = 8
        Top = 68
        Width = 210
        Height = 24
        Color = clSilver
        DataField = 'Common_Name'
        DataSource = DataSource1
        Font.Color = clWhite
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 30
        ParentFont = False
        TabOrder = 2
      end
      object EditSpeciesName: TDBEdit
        Left = 8
        Top = 112
        Width = 280
        Height = 24
        Color = clSilver
        DataField = 'Species Name'
        DataSource = DataSource1
        Font.Color = clWhite
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 40
        ParentFont = False
        TabOrder = 3
      end
      object EditLengthcm: TDBEdit
        Left = 8
        Top = 156
        Width = 70
        Height = 24
        Color = clSilver
        DataField = 'Length (cm)'
        DataSource = DataSource1
        Font.Color = clWhite
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 0
        ParentFont = False
        TabOrder = 4
      end
      object EditLength_In: TDBEdit
        Left = 90
        Top = 156
        Width = 143
        Height = 24
        Color = clSilver
        DataField = 'Length_In'
        DataSource = DataSource1
        Font.Color = clWhite
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 0
        ParentFont = False
        TabOrder = 5
      end
      object DBImage1: TDBImage
        Left = 304
        Top = 8
        Width = 273
        Height = 177
        DataField = 'Graphic'
        DataSource = DataSource1
        TabOrder = 6
      end
      object DBMemo1: TDBMemo
        Left = 8
        Top = 196
        Width = 569
        Height = 173
        Color = clWhite
        DataField = 'Notes'
        DataSource = DataSource1
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 7
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 287
    Top = 5
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'biolife.db'
    Left = 260
    Top = 5
    object Table1SpeciesNo: TFloatField
      FieldName = 'Species No'
    end
    object Table1Category: TStringField
      FieldName = 'Category'
      Size = 15
    end
    object Table1Common_Name: TStringField
      FieldName = 'Common_Name'
      Size = 30
    end
    object Table1SpeciesName: TStringField
      FieldName = 'Species Name'
      Size = 40
    end
    object Table1Lengthcm: TFloatField
      FieldName = 'Length (cm)'
    end
    object Table1Length_In: TFloatField
      FieldName = 'Length_In'
      DisplayFormat = '#####'
    end
    object Table1Notes: TMemoField
      FieldName = 'Notes'
      Size = 50
    end
    object Table1Graphic: TGraphicField
      FieldName = 'Graphic'
    end
  end
  object PrintWin1: TPrintWin
    HeaderFont.Color = clBlack
    HeaderFont.Height = -23
    HeaderFont.Name = 'Arial'
    HeaderFont.Style = []
    FooterFont.Color = clWindowText
    FooterFont.Height = 12
    FooterFont.Name = 'Arial'
    FooterFont.Style = []
    FrameObjects = True
    clBtnFaceAsWhite = True
    DateTimeStampEnabled = True
    PageNumberEnabled = True
    OutputTo = poViewer
    Orientation = Default
    Units = poInches
    ViewButtonVisible = False
    LineWidth = 0
    GridBackDrop = False
    GridBackDropUnits = poInches
    ZoomPercentage = 100.000000000000000000
    HeaderTop = 0.500000000000000000
    HeaderLeft = 0.500000000000000000
    HeaderStringLeft = 'The Fish Demo'
    HeaderStringCenter = 'Header'
    HeaderStringRight = 'PrintIt Demo'
    HeaderEnabled = True
    HeaderOutlined = True
    HeaderFilled = False
    TextColor = clBlack
    ViewBkColor = 11234567
    ViewHeading = 'Printit Viewer'
    HeadingColor = clSilver
    FrameStyle = frThin
    FooterTop = 25.130000000000000000
    FooterString = 'Footer String'
    FooterEnabled = True
    FooterOutlined = True
    FooterFilled = False
    FixSansSerif = True
    BorderLeft = 0.500000000000000000
    BorderRight = 0.500000000000000000
    LineSpacing = 2.800000000000000000
    Left = 352
    Top = 12
  end
end